                                  SIGNS 

SIGN print  strin o letter i larg forma -  1   norma 
characters  Eac lette i 1     character i size  Ther 
ar tw space betwee eac letter an tw lin feed betwee 
eac string  Tw compilation ar provided SIGNS ha si 
letter pe strin an i suitabl fo console an 8 colum 
printers  SIGNS1 ha 1 character pe lin whic fit ont  
132 column printer.

Thi versio o th progra ha bee turne fro warme ove 
BASI int rea Pascal  A suc i i muc mor flexible  Th 
tw CONSTants lin widt an lengt o alphabe ar documente 
in the source.  WDTH works just fine.

Additionally readabilit ha bee improve b puttin th 
initializatio routine int procedures  Also  thin yo wil 
be tickled by the output device routing options.

Th UCAS functio trap al illega letters an  turn  lowe  
cas  int upper  A presentl written  onl  uppe  cas  
letter  an  blank  ar formatted  

Sinc al BASI languag variable ar lega i Pascal th name 
wer  no changed  I th revision  succeede i eliminatin  
couple altogether.

Fillin th  arra presente  problem  Initiall  ha planne 
t d  i thus  
        mult := 1;      {declared as integer} 
        for a := 5 downto 1 do 
        begin 
                z[a] := mult; 
                mult := mult * 10; 
        end; 
Thi resulte i  run-tim multiplicatio  error    Th brut 
forc metho works th i certainl i no a elegant  

Th mos difficul par o convertin thi progra fro BASI  
wa  fillin th arra containin th characte fon -- L  I 
BASIà thi i don withi th progra usin  serie o DAT 
statements fo whic ther i n analo i Pascal  Her i ho 
th fon i stored shoul yo wis t alte o ad t it  Eac 
lin i  th  "font.dat  fil  consist  o    strin  o  8
characters:  
Char    ASCII   (val-64)        Binary 
_       95      31              11111 
P       80      16              10000 
P       80      16              10000 
^       94      30              11110 
P       80      16              10000 
P       80      16              10000 
P       80      16              10000 
F -- label, now used to fill L$ array.

Th abov i  th  representatio  o  th  lette  "F"    Onl  
printabl character ca b use a par o  th  fon  string  
a  m  tex  edito filter th contro젠 characters(fo 
starters)  Fo tha reason th progra use th uppe cas 
serie an convert t th  number  neede  usin  th (val-64 
function  I SIGNӠ i use a  subroutin  i  anothe  
program sugges tha array  an L b declare globally  Als 
remov procedur  SETARRA fro th nes an mak  i  par  o  
progra  initialization    Tha  wa "font.dat wil onl b 
calle once  

Improvements and comments welcome:  
Rex A Buddenberg 
1910 Ash Street 
North Bend, Or 97459 
h)503/756-2180 
Revised 13 March 1983
